neuron-0.6.0.0: src/app/Neuron/Reader.hs

{-# LANGUAGE LambdaCase #-}

module Neuron.Reader where

import Neuron.Reader.Markdown
import Neuron.Reader.Org
import Neuron.Reader.Type

readerForZettelFormat :: ZettelFormat -> ZettelReader
readerForZettelFormat = \case
  ZettelFormat_Markdown -> parseMarkdown
  ZettelFormat_Org -> parseOrg