diff --git a/flake.nix b/flake.nix index 4eb0f19..3272d7f 100644 --- a/flake.nix +++ b/flake.nix @@ -62,8 +62,7 @@ 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; diff --git a/src/HCat/Internal.hs b/src/HCat/Internal.hs index 69f0493..4bbbaae 100644 --- a/src/HCat/Internal.hs +++ b/src/HCat/Internal.hs @@ -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