mirror of
https://github.com/serokell/xrefcheck.git
synced 2024-10-26 23:43:41 +03:00
92c3de5587
Problem: In ``` import qualified Foo.Bar as Bar import Foo.Bar (Bar) ``` names of the imported modules are on different vertical lines, which disables autosorting, and makes it harder to read. Solution: Use `ImportQualifiedPost`
25 lines
563 B
Haskell
25 lines
563 B
Haskell
{- SPDX-FileCopyrightText: 2018-2019 Serokell <https://serokell.io>
|
|
-
|
|
- SPDX-License-Identifier: MPL-2.0
|
|
-}
|
|
|
|
module Main where
|
|
|
|
import Universum
|
|
|
|
import Data.ByteString qualified as BS
|
|
import Main.Utf8 (withUtf8)
|
|
|
|
import Xrefcheck.CLI (Command (..), getCommand)
|
|
import Xrefcheck.Command (defaultAction)
|
|
import Xrefcheck.Config (defConfigText)
|
|
|
|
main :: IO ()
|
|
main = withUtf8 $ do
|
|
command <- getCommand
|
|
case command of
|
|
DefaultCommand options ->
|
|
defaultAction options
|
|
DumpConfig repoType path ->
|
|
BS.writeFile path (defConfigText repoType)
|