Fixing non total function

tmspzz · Sep 9, 2016 · 7b3b8e3 · 7b3b8e3
1 parent 2a172e2
commit 7b3b8e3
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/Lib.hs b/src/Lib.hs
@@ -223,7 +223,7 @@ deriveFrameworkNameAndVersion ::  M.Map GitRepoName [FrameworkName] -> CartfileE
 deriveFrameworkNameAndVersion romeMap (CartfileEntry GitHub l v) = map (\n -> (n, v)) $ fromMaybe [gitHubRepositoryName] (M.lookup gitHubRepositoryName romeMap)
   where
     gitHubRepositoryName = last $ splitWithSeparator '/' l
-deriveFrameworkName romeMap (CartfileEntry Git l v)    = map (\n -> (n, v)) $ fromMaybe [gitRepositoryName] (M.lookup gitRepositoryName romeMap)
+deriveFrameworkNameAndVersion romeMap (CartfileEntry Git l v)    = map (\n -> (n, v)) $ fromMaybe [gitRepositoryName] (M.lookup gitRepositoryName romeMap)
   where
     gitRepositoryName = getGitRepositoryNameFromGitURL l
     getGitRepositoryNameFromGitURL = replace ".git" "" . last . splitWithSeparator '/'