[ re #155 ] Minor simplifications following suggestions by @omelkonian

Author: jespercockx

src/Agda2Hs/AgdaUtils.hs

@@ -166,8 +166,7 @@ infoFlags =
 
 resolveStringName :: MonadTCM m => String -> m QName
 resolveStringName s = do
-  cqname <- liftTCM $ parseName noRange s
-  rname  <- liftTCM $ resolveName cqname
+  rname  <- liftTCM $ resolveName =<< parseName noRange s
   case rname of
     DefinedName _ aname _ -> return $ anameName aname
     _ -> liftTCM $ typeError $ CustomBackendError "agda2hs" $ fromString $ "Couldn't find " ++ s

src/Agda2Hs/Compile/Function.hs

@@ -112,9 +112,7 @@ compileFun' withSig def@Defn{..} = inTopContext $ withCurrentModule m $ do
   whenM ((withSig &&) <$> inRecordMod defName) $
     agda2hsError "not supported: functions inside a record module"
 
-  x <- compileQName defName <&> \case
-    Hs.Qual _ _ x -> x
-    Hs.UnQual _ x -> x
+  x <- Hs.unQual <$> compileQName defName
 
   ifM (endsInSort defType)
     -- if the function type ends in Sort, it's a type alias!