mvoidex

[
	{ "keys": ["up"], "command": "repl_view_previous",
	"context":
		[
			{ "key": "setting.history_arrows", "operator": "equal", "operand": true },
			{ "key": "setting.repl", "operator": "equal", "operand": true },
			{ "key": "auto_complete_visible", "operator": "equal", "operand": false }
		]
	},
	{ "keys": ["alt+p"], "command": "repl_view_previous",

mvoidex

{-# LANGUAGE OverloadedStrings #-}

module Main (
	main
	) where

import Control.Arrow
import Control.Applicative
import Control.Lens (lens, traverseOf, view, Simple, Lens)
import Data.Aeson

mvoidex

{-# LANGUAGE TemplateHaskell, OverloadedStrings #-}

module ParseTest (
    ) where

import Data.ByteString (ByteString)
import Data.Text (Text)
import qualified Data.Text.Encoding as T
import Data.Serialization
import Data.Serialization.Text.Print

mvoidex

data A = A Text Int Double
    deriving (Eq, Ord, Read, Show)

$(makeIso "aiso" ''A)

-- | Serialize with show, deserialize with attoparsec
type Textual a = Serializable Text ShowText Atto a

class Ser a where
    ser :: Textual a

mvoidex

data A = A Text Int Double
    deriving (Eq, Ord, Read, Show)

$(makeIso "aiso" ''A)

-- | Serialize with show, deserialize with attoparsec
type Textual a = Serializable Text ShowText Atto a

class Ser a where
    ser :: Textual a

mvoidex

data A = A Text Int Double
    deriving (Eq, Ord, Read, Show)

$(makeIso "aiso" ''A)

-- | Serialize with show, deserialize with attoparsec
type Textual a = Serializable Text ShowText Atto a

class Ser a where
    ser :: Textual a

mvoidex

data A = A Text Int Double
    deriving (Eq, Ord, Read, Show)

$(makeIso "aiso" ''A)

-- | Serialize with show, deserialize with attoparsec
type Textual a = Serializable Text ShowText Atto a

class Ser a where
    ser :: Textual a