Compare commits

...

3 commits

2 changed files with 12 additions and 2 deletions

View file

@ -62,14 +62,14 @@
devShells.default = haskellPackages.shellFor {
inherit (self.checks.${system}.pre-commit-check) shellHook;
packages = _:
pkgs.lib.filter (x: x != null) [ self.packages.${system}.default ];
packages = _: [ self.packages.${system}.default ];
withHoogle = true;
nativeBuildInputs = with pkgs; [
haskellPackages.haskell-language-server
haskellPackages.fourmolu
haskellPackages.hspec-discover
cabal-install
ghcid
nixfmt

View file

@ -1,6 +1,8 @@
-- | Internal module in order to facilitate testability.
module HCat.Internal where
import Data.Text (Text)
-- | @parseArgs@ takes a list of strings and returns a single FilePath if there was exactly one element.
--
-- >>> parseArgs ["foo"]
@ -28,3 +30,11 @@ chunksOf n xs@(_ : _)
| otherwise =
let (chunk, rest) = splitAt n xs
in chunk : chunksOf n rest
-- | @wordWrap@ splits the given Text if it is longer than the given margin.
--
-- >>> :set -XOverloadedStrings
-- >>> wordWrap 3 $ "abcdef"
-- ["abc", "def"]
wordWrap :: Int -> Text -> [Text]
wordWrap = undefined