kindaro

cabal-version: 2.4
name: Squeeze
version: 0.1.0.0
author: Ignat Insarov
maintainer: [email protected]

library
  hs-source-dirs: .
  build-depends: base, distributive
  default-language: Haskell2010

kindaro

{-# language UnicodeSyntax #-}

import Data.Functor
import Control.Monad

f₁ = (putStrLn "f₁" $>)
f₂ = (putStrLn "f₂" $>)
g₁ = (putStrLn "g₁" $>)
g₂ = (putStrLn "g₂" $>)

kindaro

-- Inspired by <https://duplode.github.io/posts/traversable-a-remix.html>.

module WeirdFish where

import Control.Monad
import Control.Monad.Free
import Data.Functor.Classes

type Nice functor = (Functor functor, Show1 functor)

kindaro

packages:
  servant-purescript-codegen-example/server
  servant-purescript
  purescript-bridge
  servant-errors

kindaro

{-# language GHC2021, UnicodeSyntax, BlockArguments, LambdaCase #-}
{-# language AllowAmbiguousTypes #-}
{-# language MonoLocalBinds #-}

import Data.List (nubBy, sortBy)
import Data.Function (on, fix, (&))
import Data.String (IsString (fromString))
import Text.Read (readMaybe)
import Prelude hiding (lookup)
import Prelude qualified

kindaro

% haskell-language-server-wrapper
No 'hie.yaml' found. Try to discover the project type!
Run entered for haskell-language-server-wrapper(haskell-language-server-wrapper) Version 1.9.1.0 x86_64 ghc-9.4.4
Current directory: /home/kindaro/code/haskell/bookmark
Operating system: linux
Arguments: []
Cradle directory: /home/kindaro/code/haskell/bookmark
Cradle type: Cabal

Tool versions found on the $PATH

kindaro

% npm install

up to date, audited 220 packages in 1s

61 packages are looking for funding
  run `npm fund` for details

found 0 vulnerabilities
% npm run check

kindaro

{-# LANGUAGE DerivingStrategies #-}
{-# LANGUAGE UndecidableInstances #-}

module DB where

import Data.Aeson
import GHC.Generics

import Types (User)

kindaro

inits_inits' [Occ=LoopBreaker] :: Text -> [Text]
[GblId, Arity=1, Str=<1L>, Unf=OtherCon []]
inits_inits'
  = \ (ds :: Text) ->
      case ds of {
        Empty -> [] @Text;
        Chunk bx bx1 bx2 ts ->
          let {
            z :: [Text]
            [LclId]

kindaro

diff --git a/src/Data/IntervalSet/ByteString.hs b/src/Data/IntervalSet/ByteString.hs
index 0e569e5..de3a7e8 100644
--- a/src/Data/IntervalSet/ByteString.hs
+++ b/src/Data/IntervalSet/ByteString.hs
@@ -24,6 +24,7 @@ import qualified Data.ByteString as BS
 import qualified Data.ByteString.Internal as BS
 import Control.Monad as CM
 import Foreign
+import System.IO.Unsafe