<commit_before>{-# LANGUAGE RankNTypes #-}
------------------------------------------------------------------------------
-- File:          Configs.hs
-- Creation Date: Dec 24 2012 [01:31:05]
-- Last Modified: Jan 28 2013 [19:20:44]
-- Created By: <NAME> [SimSaladin] samuli.thomassonAtpaivola.fi
------------------------------------------------------------------------------
module Configs ( module Sections, browsable, onSec ) where

import Import
import Sections
import Sections.Music
import Sections.Film

browsable :: [(Text, Text)]
browsable = [ ("anime", "film")
            , ("music", "music")
            , ("hentai", "film")
            , ("movies", "film")
            , ("books", "book")
            , ("games", "headphones")
            ]

-- |
animeContent :: FilmSec
animeContent = FilmSec "anime" "/home/media/anime" (MediaContentR "anime")

-- |
musicContent :: MPDSec
musicContent = MPDSec "music" "/home/media/music" (MediaContentR "music")

hentaiContent :: FilmSec
hentaiContent = FilmSec "hentai" "/home/media/hentai" (MediaContentR "hentai")

<<<<<<< HEAD
gamesContent :: FilmSec
gamesContent = FilmSec "games" "/home/media/game" (MediaContentR "games")
=======
moviesContent :: FilmSec
moviesContent = FilmSec "movies" "/home/media/movie" (MediaContentR "movies")

booksContent :: FilmSec
booksContent = FilmSec "books" "/home/media/books" (MediaContentR "books")
>>>>>>> 228b3e237602d25ad749ee71c0385d581b17f43c

onSec :: Text -> (forall a. MSection a => a -> b) -> b
onSec sec f = case sec of
  "anime"  -> f animeContent
  "music"  -> f musicContent
  "hentai" -> f hentaiContent
  "games"  -> f gamesContent
  "movies" -> f moviesContent
  "books"  -> f booksContent
  _        -> error "Unknown content!"<commit_msg>remove missed conflicts<commit_after>{-# LANGUAGE RankNTypes #-}
------------------------------------------------------------------------------
-- File:          Configs.hs
-- Creation Date: Dec 24 2012 [01:31:05]
-- Last Modified: Jan 28 2013 [20:16:04]
-- Created By: <NAME> [SimSaladin] samuli.thomassonAtpaivola.fi
------------------------------------------------------------------------------
module Configs ( module Sections, browsable, onSec ) where

import Import
import Sections
import Sections.Music
import Sections.Film

browsable :: [(Text, Text)]
browsable = [ ("anime", "film")
            , ("music", "music")
            , ("hentai", "film")
            , ("movies", "film")
            , ("books", "book")
            , ("games", "headphones")
            ]

-- |
animeContent :: FilmSec
animeContent = FilmSec "anime" "/home/media/anime" (MediaContentR "anime")

-- |
musicContent :: MPDSec
musicContent = MPDSec "music" "/home/media/music" (MediaContentR "music")

hentaiContent :: FilmSec
hentaiContent = FilmSec "hentai" "/home/media/hentai" (MediaContentR "hentai")

gamesContent :: FilmSec
gamesContent = FilmSec "games" "/home/media/game" (MediaContentR "games")

moviesContent :: FilmSec
moviesContent = FilmSec "movies" "/home/media/movie" (MediaContentR "movies")

booksContent :: FilmSec
booksContent = FilmSec "books" "/home/media/books" (MediaContentR "books")

onSec :: Text -> (forall a. MSection a => a -> b) -> b
onSec sec f = case sec of
  "anime"  -> f animeContent
  "music"  -> f musicContent
  "hentai" -> f hentaiContent
  "games"  -> f gamesContent
  "movies" -> f moviesContent
  "books"  -> f booksContent
  _        -> error "Unknown content!"
{'fraction_non_alphanumeric': 0.23215846198660064, 'fraction_numerical': 0.02213807165744247, 'mean_word_length': 2.3899308983218166, 'pattern_counts': {'":': 0, '<': 12, '<?xml version=': 0, '>': 34, 'https://': 0, 'lorem ipsum': 0, 'www.': 0, 'xml': 0}, 'pii_count': 0, 'substrings_counts': 0, 'word_list_counts': {'cursed_substrings.json': 0, 'profanity_word_list.json': 0, 'sexual_word_list.json': 0, 'zh_pornsignals.json': 0}}
{'dir': 'git-commits-cleaned', 'id': '3331339', 'n_tokens_mistral': 1140, 'n_tokens_neox': 1054, 'n_words': 277}