Improve getPagePath (2)

psibi · Nov 20, 2018 · a8e62c8 · a8e62c8
1 parent c9f8027
commit a8e62c8
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/app/Main.hs b/app/Main.hs
@@ -84,7 +84,7 @@ getPagePath page = do
   homeDir <- getHomeDirectory
   let pageDir = homeDir </> tldrDirName </> "tldr" </> "pages"
       paths = map (\x -> pageDir </> x </> page <.> "md") checkDirs
-  foldr (<|>) Nothing <$> mapM pageExists paths
+  foldr1 (<|>) <$> mapM pageExists paths
 
 main :: IO ()
 main = do