Skip to content

Instantly share code, notes, and snippets.

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
kindaro / DB.hs
Last active August 31, 2023 19:50
{-# LANGUAGE DerivingStrategies #-}
{-# LANGUAGE UndecidableInstances #-}
module DB where
import Data.Aeson
import GHC.Generics
import Types (User)
% 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
% 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
{-# 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
packages:
servant-purescript-codegen-example/server
servant-purescript
purescript-bridge
servant-errors
@kindaro
kindaro / WeirdFish.hs
Last active September 16, 2022 07:19
-- 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)
{-# language UnicodeSyntax #-}
import Data.Functor
import Control.Monad
f₁ = (putStrLn "f₁" $>)
f₂ = (putStrLn "f₂" $>)
g₁ = (putStrLn "g₁" $>)
g₂ = (putStrLn "g₂" $>)
cabal-version: 2.4
name: Squeeze
version: 0.1.0.0
author: Ignat Insarov
maintainer: kindaro@gmail.com
library
hs-source-dirs: .
build-depends: base, distributive
default-language: Haskell2010
2022-04-01 14:19:03.284003569 [ThreadId 4] INFO hls: Logging heap statistics every 60.00s
2022-04-01 14:19:03.291353814 [ThreadId 4] INFO hls: Starting LSP server...
2022-04-01 14:19:03.29165556 [ThreadId 4] INFO hls: If you are seeing this in a terminal, you probably should have run WITHOUT the --lsp option!
2022-04-01 14:19:03.29515318 [ThreadId 10] INFO hls: Started LSP server in 0.00s
2022-04-01 14:19:03.310531672 [ThreadId 10] DEBUG hls: setInitialDynFlags cradle: Cradle {cradleRootDir = "/home/kindaro/code/haskell/pixels", cradleOptsProg = CradleAction: Cabal}
2022-04-01 14:19:03.541538958 [ThreadId 10] DEBUG hls: runSubset: False
2022-04-01 14:19:03.541893403 [ThreadId 16] DEBUG hls: Initializing exports map from hiedb
2022-04-01 14:19:03.542301157 [ThreadId 10] INFO hls: Registering ide configuration: IdeConfiguration {workspaceFolders = fromList [NormalizedUri (-3453843489293670691) "file:///home/kindaro/code/haskell/pixels"], clientSettings = hashed Nothing}
2022-04-01 14:19:03.544614606 [ThreadId 1