Add windows to checkDirs

app/Main.hs

@@ -26,7 +26,7 @@ repoHttpsUrl :: String
 repoHttpsUrl = "https://github.com/tldr-pages/tldr.git"
 
 checkDirs :: [String]
-checkDirs = ["common", "linux", "osx"]
+checkDirs = ["common", "linux", "osx", "windows"]
 
 tldrInitialized :: IO Bool
 tldrInitialized = do
@@ -84,14 +84,15 @@ getPagePath :: String -> IO (Maybe FilePath)
 getPagePath page = do
   homeDir <- getHomeDirectory
   let pageDir = homeDir </> tldrDirName </> "tldr" </> "pages"
-      x@(f1:f2:f3:[]) = map (\x -> pageDir </> x </> page <.> "md") checkDirs
+      x@(f1:f2:f3:f4:[]) = map (\x -> pageDir </> x </> page <.> "md") checkDirs
 #if MIN_VERSION_base(4,7,0)
   f1' <- pageExists f1
   f2' <- pageExists f2
   f3' <- pageExists f3
-  return $ f1' <|> f2' <|> f3'
+  f4' <- pageExists f4
+  return $ f1' <|> f2' <|> f3' <|> f4'
 #else
-  pageExists f1 <|> pageExists f2 <|> pageExists f3
+  pageExists f1 <|> pageExists f2 <|> pageExists f3 <|> pageExists f4
 #endif